10 IFFL=0THENFL=1:LOAD "COLOR CRAFT.OBJ",8,1
20 FL=2:POKE56,32:CLR:DIMFP(2,9),BAR(10),SC(9),MP(2,9)
30 POKE2040,13:POKE2042,253:POKE2043,254:POKE2044,255
40 DIMCO(9):CO(1)=1:CO(2)=7:CO(3)=5:CO(4)=6:CO(5)=0:CO(6)=2:CO(7)=14
50 CO(8)=10:CO(9)=13
60 DIMS1(9),S2(9),S3(2),S4(2)
70 S1(1)=01:S2(1)=197:S1(2)=129:S2(2)=198:S1(3)=129:S2(3)=196
80 S1(4)=65:S2(4)=196:S1(5)=193:S2(5)=196:S1(6)=1:S2(6)=196
90 S1(7)=193:S2(7)=197:S1(8)=129:S2(8)=197:S1(9)=65:S2(9)=197
100 S3(1)=1:S4(1)=198:S3(2)=65:S4(2)=198:POKE53242,63
110 CO(0)=3:S1(0)=S1(1):S2(0)=S2(1)
120 V=53248:POKEV+16,0:NR=1:POKEV+29,0:POKEV+23,0
130 POKE53276,PEEK(53276)OR(2^0)
140 BAR(1)=1:BAR(2)=2:BAR(3)=4:BAR(4)=14:BAR(5)=5:BAR(6)=6:BAR(7)=7
150 BAR(8)=10:BAR(9)=11:BAR(10)=13:POKE53280,14
160 FORI=1TO9:SC(I)=CO(I):NEXT:POKE2045,14:POKE2046,15
170 POKE53245,128:POKE53246,3:POKE53243,85:POKE53244,201:SYS50944
180 POKE53245,192:POKE53246,3:POKE53243,149:POKE53244,201:SYS50944
190 POKEV+16,96:POKEV+10,43:POKEV+12,43:POKEV+11,59:POKEV+13,82:
200 POKEV+45,0:POKEV+44,0:NH=0
210 BASE=8192:POKE53272,PEEK(53272)OR8
220 POKE53265,PEEK(53265)OR32:POKE53270,PEEK(53270)OR16:POKE53281,3
230 POKE251,0:POKE252,32:POKE253,64:POKE254,33:POKE49152,255:SYS49153
240 POKE251,64:POKE252,33:POKE253,64:POKE254,63:POKE49152,0:SYS49153
250 POKE251,0:POKE252,4:POKE253,232:POKE254,7:POKE49152,0:SYS49153
260 POKE251,0:POKE252,216:POKE253,231:POKE254,219:POKE49152,0:SYS49153
270 CR=14:GOSUB1290
280 POKE251,0:POKE252,62:POKE253,64:POKE254,63:POKE49152,255:SYS49153
290 L=1:FORI=0TO9:FORJ=0TO3:POKE56256+I*4+J,BAR(L):NEXTJ:L=L+1:NEXTI
300 FORBY=8768TO14848STEP320
310 LY=INT(BY-BASE)/8+1024:POKELY,96
320 FORI=0TO7:POKEBY+I,PEEK(BY+I)OR64:NEXT:NEXT
330 FORBY=14599TO14853STEP8:POKEBY,255
340 LY=INT(BY-BASE)/8+55296:POKELY,6:NEXT
350 FORBY=14598TO14852STEP8:POKEBY,255
360 LY=INT(BY-BASE)/8+55296:POKELY,6:NEXT
370 L=16191:FORI=0TO39:POKEL-(I*8),170:NEXT
380 FORI=1TO9:CO(I)=SC(I):NEXT
390 POKE53245,64:POKE53246,63:POKE53243,193:POKE53244,198:SYS50944
400 POKEV+41,0:POKEV+42,0:POKEV+43,0
410 POKE53245,128:POKE53246,63:POKE53243,S3(1):POKE53244,S4(1):SYS50944
420 POKE53245,192:POKE53246,63:POKE53243,S3(2):POKE53244,S4(2):SYS50944
430 POKEV+6,30:POKEV+7,220:POKEV+8,70:POKEV+9,220:POKEV+21,120
440 GOSUB1040:POKE49233,3
450 FORSB=NHTO9:POKEV+16,96
460 NY=FP(2,SB):NX=FP(1,SB):IFNX<256THEN480
470 POKEV+16,97:NX=NX-255
480 POKE53285,CO(SB)
490 POKE53245,64:POKE53246,3:POKE53243,S1(SB):POKE53244,S2(SB):SYS50944
500 POKEV,NX:POKEV+1,NY:POKE49189,0:SYS49185
510 NEXTSB:NH=1:POKE49233,0
520 FL=9
530 POKEV+4,255:POKEV+5,105:POKEV+16,96
540 POKE51207,61:POKE51350,239:POKE49189,2:POKE251,4:POKE252,208
550 POKEV+21,PEEK(V+21)OR4
560 SYS51011
570 IFPEEK(50978)<>0THEN560
580 FORI=1TO300:NEXT
590 X=PEEK(V+4)+24:Y=PEEK(V+5)+10:IF(PEEK(V+16)AND4)>0THENX=X+255
600 IFY>240THEN870
610 IFX>255THEN680
620 IFY<FP(2,7)-4THEN530
630 IFX<70THENPOKEV+21,0:FL=9:POKE53280,14:GOTO220
640 IFX<FP(1,6)THEN1320
650 FORSB=7TO9:IFX<FP(1,SB)THEN730
660 NEXT
670 SB=10:GOTO730
680 IFX<275THEN620
690 IFY<100THEN1110
700 FORSB=2TO5:IFY<FP(2,SB)THEN730
710 NEXT
720 SB=10:IFX>FP(2,9)+25THENSB=6
730 SB=SB-1:POKE53245,64:POKE53246,3:POKE53243,S1(SB):POKE53244,S2(SB):SYS50944
740 IFSB=5THEN970
750 IFFL=10THENGOSUB900
760 POKEV+1,FP(2,SB):NX=FP(1,SB):IFNX<256THEN780
770 POKEV+16,PEEK(V+16)OR1:NX=NX-255
780 POKEV,NX:POKE53285,CO(SB)
790 POKEV+21,(PEEK(V+21)AND251)OR1
800 POKE49189,0:POKE251,0:POKE252,208:POKE51207,0:POKE51350,196
810 POKEV+1,MP(2,SB):NX=MP(1,SB):POKEV+16,PEEK(V+16)AND254:IFNX<256THEN830
820 POKEV+16,PEEK(V+16)OR1:NX=NX-255
830 POKEV,NX
840 SYS51011
850 IFPEEK(50978)<>0THEN840
860 POKE49189,0:POKEV+21,120:SYS49185:GOTO530
870 FL=10:FORL=2TO10:IFX<(L-1)*32+24THEN890
880 NEXT:L=11
890 L=L-1:NCOLR=BAR(L):POKE53280,BAR(L):CR=BAR(L):GOSUB1290:GOTO530
900 CO(SB)=NCOLR:FL=9:POKE49189,0:POKEV+21,120
910 POKE53280,14:CR=14:GOSUB1290
920 POKEV+1,FP(2,SB):NX=FP(1,SB):IFNX<256THEN940
930 POKEV+16,PEEK(V+16)OR1:NX=NX-255
940 POKEV,NX:POKE53285,CO(SB)
950 POKEV+21,(PEEK(V+21)AND251)OR1
960 POKE49189,0:SYS49185:RETURN
970 FL=9:POKE53280,14:NCOLR=0:CR=14:GOSUB1290:GOTO 760
980 NM$="":II=0
990 GETA$:IFA$=""THEN990
1000 IFA$=CHR$(13)THENRETURN
1010 IFA$=CHR$(20)THENPRINTCHR$(20);:II=II-1:NM$=LEFT$(NM$,II):GOTO990
1020 IFA$<CHR$(48)ORA$>CHR$(90)THEN990
1030 II=II+1:NM$=NM$+A$:PRINTA$;:GOTO990
1040 FP(1,0)=294:FP(1,1)=294:FP(1,2)=294:FP(1,3)=294:FP(1,4)=294:FP(1,5)=294
1050 FP(2,1)=110:FP(2,2)=140:FP(2,3)=165:FP(2,4)=190:FP(2,5)=218
1060 FOR I=6TO9:FP(1,I)=65+(I-5)*45:FP(2,I)=220:NEXT:FP(1,7)=FP(1,7)-5
1070 FP(1,8)=FP(1,8)-2
1080 FORI=1TO5:MP(1,I)=255:MP(2,I)=FP(2,I):NEXT
1090 FORI=6TO9:MP(1,I)=FP(1,I):MP(2,I)=FP(2,I)-24:NEXT
1100 MP(2,5)=FP(2,5)-24:RETURN
1110 POKE251,0:POKE252,4:POKE253,39:POKE254,4:POKE49152,32:SYS49153
1120 CR=14:FL=9:POKE53280,CR:GOSUB1290
1130 POKE51729,0:OPEN15,8,15:SYS51419:IFY<75THEN1190
1140 PRINT"LOAD FILE NAME :";:GOSUB980:SYS51669:GOSUB1290
1150 OPEN2,8,2,NM$:INPUT#15,A$,B$,C$,C$:SYS51419
1160 IFA$="00"THENPRINT"LOADING "NM$:FORI=1TO1000:NEXT:SYS51669:GOTO1180
1170 PRINT"  "B$:FORI=1TO3000:NEXT:GOTO1230
1180 GOSUB1290:SYS51937:POKE14847,255:GOTO1250
1190 PRINT"SAVE FILE NAME: ";:GOSUB980:SYS51669:NM$=NM$+",S,W":GOSUB1290
1200 OPEN2,8,2,NM$:INPUT#15,A$,B$,C$,C$:SYS51419
1210 IFA$="00"THENPRINT" SAVING "NM$:GOTO1240
1220 PRINT"  "B$:FORI=1TO3000:NEXT
1230 SYS51669:GOSUB1310:GOSUB1290:P1$="@":GOTO520
1240 FORI=1TO2000:NEXTI:SYS51669:GOSUB1290:SYS51708
1250 GOSUB1310:P1$="@"
1260 IFPEEK(51729)=0THEN520
1270 SYS51419:PRINT" BAD DISK ACCESS. CODE = "PEEK(51729)
1280 FORI=1TO3000:NEXT:SYS51669:GOSUB1290:GOTO520
1290 POKE251,0:POKE252,216:POKE253,40:POKE254,216:POKE49152,CR:SYS49153
1300 RETURN
1310 SYS65484:CLOSE2:CLOSE15:RETURN
1320 POKE56,160:CLR:SYS 64759
1330 END